home *** CD-ROM | disk | FTP | other *** search
/ Il Mio Computer 2006 May / Mico05CD.bin / Utility / QuickZip / quickzip.exe / {app} / Scripts / File / Akp Add to ZipTest.akp < prev    next >
Encoding:
Text File  |  2002-12-17  |  185 b   |  10 lines
  1. var ParamList : TStrings;
  2.     i : integer;
  3. begin
  4. ParamList := Param;
  5. open('c:\akpscripttest.zip');
  6. for i := 0 to ParamList.count -1 do
  7.   add(Paramlist.strings[i]);
  8. DoAdd;
  9. end.
  10.